home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 13 / Developer Source Volume 13 (I-MODE Publications, Inc.)(1999).iso / ORINF / JUL96 / HOSKF109.GIF

< prev

next >

Graphics Interchange Format  |  1998-02-10  |  11KB  |  583x470  |  4-bit (12 colors)

Labels: text | electronics | screenshot | display | software | number | web page | computer icon | website
OCR: frmContact Properties ... . ..... 0 DIM mbrMain AS Object DIM mnuApplication AS Object DIM mnuHelp AS Object Create a new menu bar object mbrMain = NEW MenuBar Create an About menu mnuApplication = NEW Menu mnuApplication. Label ="sApplication" muApplication. AppendMenuItem ( "<Exit", cCmdStop, NULL, "AQ" ) - Create a Help menu mnuHelp = NEW Menu mnuHelp. Label ="&Help" mnuHelp. AppendMenuItem ( "&Contents", cCmdContentsHelp, NULL, NULL ) mnuHelp. AppendMenuItem ( "&Using this Form", cCmdContextHelp, NULL, NULL ) mnuHelp. AppendMenuItem ( "<About this Sample. . . ", cCmdAbout, NULL, NULL ) Append the new menus to the menu bar mbrMain. AppendMenu ( mnuApplication ) mbrMain. AppendMenu ( mnuHelp ) Assign custom menu bar to form Self. SetMenuBar ( mbrMain )

---